* lisp/emacs-lisp/rx.el (rx-syntax): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 56999cef1ed4070e3fc2331092da58649ffe5f18..db8775ae487edc5a72ddfc5603a079d6eb25e4f8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-12-30  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * emacs-lisp/rx.el (rx-syntax): Fix typo.
+
 2010-12-30  Tassilo Horn  <tassilo@member.fsf.org>
 
        * doc-view.el (doc-view-toggle-display): Perform rassq-delete-all

diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index b3b88c3ce4fe5c989ef037bc162ba4b46130f160..cb6756a7e0ff29af27500713afa148ba6369cfc9 100644 (file)
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -767,7 +767,7 @@ of all atomic regexps."
     (unless syntax
       ;; Try sregex compatibility.
       (cond
-       ((character sym) (setq syntax sym))
+       ((characterp sym) (setq syntax sym))
        ((symbolp sym)
         (let ((name (symbol-name sym)))
           (if (= 1 (length name))